 
 <html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
 
<script language="javascript">
function messageWindow(title)
{
  //if(document.all.PhieuTrong.checked)
  //{
  	//alert("True");
  //}
  if(document.all.PhieuTrong.checked)
  {
  	url="InAllPhieuDiemSanPhamTheoCongDoanSanXuat.asp";  
	var height=screen.height;
  	var width=screen.width;
	//content="status,menubar,scrollbars,height=" + height + ",width=" + width +")";
	//var newWindow = window.open(url,"msgWindow",content);
	var newWindow = window.open(url,"msgWindow", "status,menubar,scrollbars,height=600,width=800");
  	newWindow.focus( );
  }
  else
  {
	if(document.form1.MaThanhVien.value>0)  
	{
	  url="InPhieuDiemSanPhamTheoCongDoanSanXuat.asp?MaThanhVien="+form1.MaThanhVien.value;
	  var height=screen.height;
	  var width=screen.width;
		//content="status,menubar,scrollbars,height=" + height + ",width=" + width +")";
		//var newWindow = window.open(url,"msgWindow",content);
	  var newWindow = window.open(url,"msgWindow", "status,menubar,scrollbars,height=600,width=800");
	  newWindow.focus( );
	 }
	 else
	 {
	 	alert("Bạn chưa chọn thành viên để in phiếu điểm trống.");
		document.form1.MaThanhVien.focus();
		return false;
	 }
	 
  }
}
function checkValue()
{
	if(document.form1.MaThanhVien.value=0)
	{
		alert("Bạn chưa chọn thành viên để chấm điểm.");
		document.form1.MaThanhVien.focus();
		return false;
	}
}
</script>
 
</head>
 
<%
		MaSanPham=Session("ma_sp")
		MaHoiDong=Session("ma_hd")
	  MaDoanhNghiep=Session("ma_dn")
	  errorStr = Request.QueryString("errorStr")
	  
	  sql = "SELECT TenDoanhNghiep, TenSanPham FROM DoanhNghiep inner join SanPham on DoanhNghiep.MaDoanhNghiep=SanPham.MaDoanhNghiep WHERE DoanhNghiep.MaDoanhNghiep='" & MaDoanhNghiep & "' and MaHoiDong='" & MaHoiDong & "' and MaSanPham='" & MaSanPham &"'"
	  RS.Open sql,conn
	  
		Dim RS2
		Set RS2 = Server.CreateObject("ADODB.Recordset")
		strSQL = "Select ThanhVien.MaThanhVien,TenThanhVien From ThanhVien inner join HoiDongChamDiem  on ThanhVien.MaThanhVien=HoiDongChamDiem.MathanhVien where ThanhVien.Status=1 and MahoiDong='" & MaHoiDong & "' and HoiDongChamDiem.Status=1"
		RS2.Open strSQL,conn
		
		Dim RsMaChiTieu
		Set RsMaChiTieu = Server.CreateObject("ADODB.Recordset")
		sql = "SELECT BangChiTieu.MaChiTieu, TenChiTieu,GhiChu FROM BangChiTieu inner join ChiTietChiTieu on BangChiTieu.MaChiTieu=ChiTietChiTieu.MaChiTieu WHERE MaDoanhNghiep='"&MaDoanhNghiep&"'"
		RsMaChiTieu.Open sql,conn
		
		Dim RsMaBuocGiaCong
		Set RsMaBuocGiaCong = Server.CreateObject("ADODB.Recordset")
		sql = "SELECT MaBuocGiaCong, TenBuocGiaCong FROM BuocGiaCong WHERE MaSanPham='"&MaSanPham&"' AND MaHoiDong='"&MaHoiDong & "'"
		'RsMaBuocGiaCong.Open sql,conn
		
		CongDoanSize = 0
		HieuQuaSize = 0
	
	dim rsdiemcham
	  	set rsdiemcham= server.CreateObject("adodb.recordset")
	 if(RS2.EOF or RsMaChiTieu.EOF or RS.EOF) then
	 	Response.Write("Bạn chưa nhập đủ các thông số,Xin vui lòng quay lại")
	 else
%> 
<body style="float:left; width:99%">
<h4 align="center"><%=errorStr%></h4>
		<form action="CapNhatDiemSanPhamTheoCongDoanSanXuat.asp" method="post" name="form1"  id="form1">
		<% if len(Request.QueryString("outStr"))>0 then %>
			<H3 align="center"><%=Request.QueryString("outStr") %></H3>
		    <p>
		      <% end if %>
		      </p>
		    <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><div align="center">
                  <h3>PHIẾU CHO ĐIỂM SẢN PHẨM THEO CÔNG ĐOẠN SẢN XUẤT</h3>
                </div></td>
                </tr>
              <tr>
                <td><div align="left">Cơ sở sản xuất:  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=RS(0) %></div></td>
                </tr>
              <tr>
                <td>Chủng loại sản phẩm:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=RS(1)%></td>
                </tr>
              <tr>
                <td><div align="left">Người cho điểm:&nbsp;
                      <select name="MaThanhVien" onchange="window.location='PhieuDiemSanPhamTheoCongDoanSanXuat.asp?ma_tv='+this.value">
                        <option value="0">Chọn một thành viên</option>
                        <% while (not RS2.EOF) %>
                        <%if (cint(Request.QueryString("ma_tv"))=RS2("MaThanhVien")) then  %>
                        <option value="<%=RS2(0)%>" selected="selected"><%=RS2(1)%></option>
                        <%else %>
                        <option value="<%=RS2(0)%>" ><%=RS2(1)%></option>
                        <%end if%>
                        <%
						RS2.moveNext
						Wend
				  %>
                      </select>
                </div></td>
              </tr>
            </table>
		    <p>&nbsp;</p>
		    <table width="100%" border="1">
			<tr>
			  <td height="45" colspan="4"><input name="button" type="button" onclick="history.back()" value=" Quay lại " />
			    <input name="InPhieuDiem" type="button" id="InPhieuDiem" value="In phiếu điểm" onclick="messageWindow('Phiếu cho điểm sản phẩm')" />
			    &nbsp;
                <input type="checkbox" name="PhieuTrong">
                <label>In tất cả phiếu điểm đã chấm</label></td>
			</tr>
			<%if (cint(Request.QueryString("ma_tv"))>1)  then %>
			<tr>
			
			  <td rowspan="2"><div align="center">Các chỉ tiêu kỹ thuật </div></td>
				  <td colspan="2"><div align="center">Điểm cho </div></td>
				  <td width="106" rowspan="2">Tiêu chuẩn điểm <br />
					m</td>
					</tr>
			<tr>
			  <td width="51" height="23"><div align="center">Min</div></td>
				  <td width="133"><div align="center">Max</div></td>
				  </tr>
			<tr>
			  <td height="23"><div align="center"><strong>T Thiết Bị </strong></div></td>
				  <td><div align="center">Tamin </div></td>
				  <td><div align="center">Tamax </div></td>
				  <td><div align="center">Theo chuẩn điểm<br />
					m
					</div></td>
				</tr>
			<tr>
			  <td><div align="center"> 	
				<% while(not RsMaChiTieu.EOF) 
					HieuQuaSize = 0
					RsMaBuocGiaCong.Open sql,conn,3
					rowCount=RsMaBuocGiaCong.RecordCount
				%>
				<tr rowspan="4">
				  <td colspan="3" align="center">
					<input type="hidden" name="MaGiaCong<%=CongDoanSize%>" id = "MaGiaCong<%=CongDoanSize%>"  size="3" value="<%=RsMaChiTieu(0)%>"/>
					<b><%=RsMaChiTieu(1) %></b>            </td>
					  <td rowspan="<%=rowCount+1%>">
						<textarea name="" cols="20" rows="7"><%=RsMaChiTieu(2) %></textarea>           </td>
					</tr>
				  <% 
						while(not RsMaBuocGiaCong.EOF)
					%>
				  <tr>
					<td width="108">
					  <%=RsMaBuocGiaCong(1)%>
					  <% 
						if (cint(Request.QueryString("ma_tv"))>0) then  
						  	SqlDiem="Select Tamin,Tamax from DiemChiTieu_KyThuat where MaThanhVien=" & Request.QueryString("ma_tv") & " and MaBuocGiaCong=" & RsMaBuocGiaCong(0) & " and MaChiTieu=" & RsMaChiTieu(0)
					  rsdiemcham.open SqlDiem,conn
					 ' Response.Write(SqlDiem)
						   if not rsdiemcham.eof  then
						  		diemTamin=	rsdiemcham("Tamin")
								diemTamax=	rsdiemcham("Tamax")
						  	else
								diemTamin=	"1"
								diemTamax=	"1"
							end if
							rsdiemcham.close
						end if
					  %>
					  <input type="hidden" name="MaHieuQua<%=CongDoanSize%><%=HieuQuaSize%>" value="<%=RsMaBuocGiaCong(0)%>" />              </td>
								<td width="122">
								  <input type="text" onblur="if ((this.value>=10)||(this.value<1) || isNaN(this.value) || (this.value > Pmax<%=CongDoanSize%><%=HieuQuaSize%>.value)){alert('Tamin phải là kiểu số ,không được nhỏ hơn 1 hoặc lớn hơn 10 và không được lớn hơn Tamax tương ứng.'); this.value='1'; this.focus(); this.select();};"  name="Pmin<%=CongDoanSize%><%=HieuQuaSize%>" size="3" value="<%=diemTamin %>"/>					    </td>
								<td>
								  <input type="text" onblur="if ((this.value>=10)||(this.value<1) || isNaN(this.value) || (this.value < Pmin<%=CongDoanSize%><%=HieuQuaSize%>.value)){alert('Tamax phải là kiểu số ,không được nhỏ hơn 1 hoặc lớn hơn 10 và không được nhỏ hơn Tamin tương ứng.'); this.value='1'; this.focus(); this.select();};" name="Pmax<%=CongDoanSize%><%=HieuQuaSize%>" size="3" value="<%=diemTamax %>"/>					    </td>
							</tr>
					<%
						
						HieuQuaSize = HieuQuaSize + 1
						RsMaBuocGiaCong.moveNext()
						Wend
						RsMaBuocGiaCong.Close
						
					%>
					<% 
					CongDoanSize = CongDoanSize + 1
					RsMaChiTieu.moveNext()
					Wend	
				%>
					
					</div></td>
				</tr>
			<br />
			<br />
			<br />
			<tr>
			  <td height="47"><input type="submit" name="Submit" value="Chấm điểm"  />
				<input type="hidden" name="CongDoanSize" value="<%=CongDoanSize%>" />
				<input type="hidden" name="HieuQuaSize" value="<%=HieuQuaSize%>" /></td>
				</tr>
				<%end if%>
			</table>
		</form><% end if	%>
 </body>
 </html>
